home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / its / its-pinyin.el.z / its-pinyin.el
Encoding:
Text File  |  1998-05-21  |  24.2 KB  |  395 lines
  1. ;; Basic PinYin Translation Table for Egg+Takana+cWnn
  2. ;; Coded by Hiroshi Kuribayashi (kuri@nff.ncl.omron.co.jp)
  3.  
  4. (its-define-mode "PinYin" "$AF4(B" t)
  5.  
  6. (dolist (A    '("b" "c" "d" "f" "g" "h" "k" "l" "m" "n" "p" "s" "t" "w" "y" "z"))
  7.     (its-defrule (concat A "a")        (concat (upcase A) "a(0@(B"))
  8.     (its-defrule (concat A "a1")    (concat (upcase A) "(0!@(B"))
  9.     (its-defrule (concat A "a2")    (concat (upcase A) "(0"@(B"))
  10.     (its-defrule (concat A "a3")    (concat (upcase A) "(0#@(B"))
  11.     (its-defrule (concat A "a4")    (concat (upcase A) "(0$@(B")))
  12. (dolist (AI    '("b" "c" "d" "g" "h" "k" "l" "m" "n" "p" "s" "t" "w" "z"))
  13.     (its-defrule (concat AI "ai")    (concat (upcase AI) "ai(0@(B"))
  14.     (its-defrule (concat AI "ai1")    (concat (upcase AI) "(0!(Bi(0@(B"))
  15.     (its-defrule (concat AI "ai2")    (concat (upcase AI) "(0"(Bi(0@(B"))
  16.     (its-defrule (concat AI "ai3")    (concat (upcase AI) "(0#(Bi(0@(B"))
  17.     (its-defrule (concat AI "ai4")    (concat (upcase AI) "(0$(Bi(0@(B")))
  18. (dolist (AN    '("b" "c" "d" "f" "g" "h" "k" "l" "m" "n" "p" "r" "s" "t" "w" "y" "z")) ;ANG
  19.     (its-defrule (concat AN "ang")    (concat (upcase AN) "ang(0@(B"))
  20.     (its-defrule (concat AN "ang1")    (concat (upcase AN) "(0!(Bng(0@(B"))
  21.     (its-defrule (concat AN "ang2")    (concat (upcase AN) "(0"(Bng(0@(B"))
  22.     (its-defrule (concat AN "ang3")    (concat (upcase AN) "(0#(Bng(0@(B"))
  23.     (its-defrule (concat AN "ang4")    (concat (upcase AN) "(0$(Bng(0@(B"))
  24.     (its-defrule (concat AN "an")    (concat (upcase AN) "an(0@(B"))
  25.     (its-defrule (concat AN "an1")    (concat (upcase AN) "(0!(Bn(0@(B"))
  26.     (its-defrule (concat AN "an2")    (concat (upcase AN) "(0"(Bn(0@(B"))
  27.     (its-defrule (concat AN "an3")    (concat (upcase AN) "(0#(Bn(0@(B"))
  28.     (its-defrule (concat AN "an4")    (concat (upcase AN) "(0$(Bn(0@(B")))
  29. (dolist (AO    '("b" "c" "d" "g" "h" "k" "l" "m" "n" "p" "r" "s" "t" "w" "y" "z"))
  30.     (its-defrule (concat AO "ao")    (concat (upcase AO) "ao(0@(B"))
  31.     (its-defrule (concat AO "ao1")    (concat (upcase AO) "(0!(Bo(0@(B"))
  32.     (its-defrule (concat AO "ao2")    (concat (upcase AO) "(0"(Bo(0@(B"))
  33.     (its-defrule (concat AO "ao3")    (concat (upcase AO) "(0#(Bo(0@(B"))
  34.     (its-defrule (concat AO "ao4")    (concat (upcase AO) "(0$(Bo(0@(B")))
  35. (dolist (E    '("c" "d" "g" "h" "k" "l" "m" "n" "r" "s" "t" "y" "z"))
  36.     (its-defrule (concat E "e")        (concat (upcase E) "e(0@(B"))
  37.     (its-defrule (concat E "e1")    (concat (upcase E) "(0%@(B"))
  38.     (its-defrule (concat E "e2")    (concat (upcase E) "(0&@(B"))
  39.     (its-defrule (concat E "e3")    (concat (upcase E) "(0'@(B"))
  40.     (its-defrule (concat E "e4")    (concat (upcase E) "(0(@(B")))
  41. (dolist (EI    '("b" "c" "d" "f" "g" "h" "k" "l" "m" "n" "p" "t" "w" "z"))
  42.     (its-defrule (concat EI "ei")    (concat (upcase EI) "ei(0@(B"))
  43.     (its-defrule (concat EI "ei1")    (concat (upcase EI) "(0%(Bi(0@(B"))
  44.     (its-defrule (concat EI "ei2")    (concat (upcase EI) "(0&(Bi(0@(B"))
  45.     (its-defrule (concat EI "ei3")    (concat (upcase EI) "(0'(Bi(0@(B"))
  46.     (its-defrule (concat EI "ei4")    (concat (upcase EI) "(0((Bi(0@(B")))
  47. (dolist (EN    '("b" "c" "f" "g" "h" "k" "m" "n" "p" "r" "s" "w" "z")) ;den
  48.     (its-defrule (concat EN "en")    (concat (upcase EN) "en(0@(B"))
  49.     (its-defrule (concat EN "en1")    (concat (upcase EN) "(0%(Bn(0@(B"))
  50.     (its-defrule (concat EN "en2")    (concat (upcase EN) "(0&(Bn(0@(B"))
  51.     (its-defrule (concat EN "en3")    (concat (upcase EN) "(0'(Bn(0@(B"))
  52.     (its-defrule (concat EN "en4")    (concat (upcase EN) "(0((Bn(0@(B")))
  53. (dolist (ENG    '("b" "c" "d" "f" "g" "h" "k" "l" "m" "n" "p" "r" "s" "t" "w" "z"))
  54.     (its-defrule (concat ENG "eng")    (concat (upcase ENG) "eng(0@(B"))
  55.     (its-defrule (concat ENG "eng1")    (concat (upcase ENG) "(0%(Bng(0@(B"))
  56.     (its-defrule (concat ENG "eng2")    (concat (upcase ENG) "(0&(Bng(0@(B"))
  57.     (its-defrule (concat ENG "eng3")    (concat (upcase ENG) "(0'(Bng(0@(B"))
  58.     (its-defrule (concat ENG "eng4")    (concat (upcase ENG) "(0((Bng(0@(B")))
  59. (dolist (I    '("b" "c" "d" "j" "l" "m" "n" "p" "q" "r" "s" "t" "x" "y" "z"))
  60.     (its-defrule (concat I "i")        (concat (upcase I) "i(0@(B"))
  61.     (its-defrule (concat I "i1")    (concat (upcase I) "(0)@(B"))
  62.     (its-defrule (concat I "i2")    (concat (upcase I) "(0*@(B"))
  63.     (its-defrule (concat I "i3")    (concat (upcase I) "(0+@(B"))
  64.     (its-defrule (concat I "i4")    (concat (upcase I) "(0,@(B")))
  65. (dolist (IA    '("d" "j" "l" "q" "x")) ;nia
  66.     (its-defrule (concat IA "ia")    (concat (upcase IA) "ia(0@(B"))
  67.     (its-defrule (concat IA "ia1")    (concat (upcase IA) "i(0!@(B"))
  68.     (its-defrule (concat IA "ia2")    (concat (upcase IA) "i(0"@(B"))
  69.     (its-defrule (concat IA "ia3")    (concat (upcase IA) "i(0#@(B"))
  70.     (its-defrule (concat IA "ia4")    (concat (upcase IA) "i(0$@(B")))
  71. (dolist (IAN    '("b" "d" "j" "l" "m" "n" "p" "q" "t" "x"))
  72.     (its-defrule (concat IAN "ian")    (concat (upcase IAN) "ian(0@(B"))
  73.     (its-defrule (concat IAN "ian1")    (concat (upcase IAN) "i(0!(Bn(0@(B"))
  74.     (its-defrule (concat IAN "ian2")    (concat (upcase IAN) "i(0"(Bn(0@(B"))
  75.     (its-defrule (concat IAN "ian3")    (concat (upcase IAN) "i(0#(Bn(0@(B"))
  76.     (its-defrule (concat IAN "ian4")    (concat (upcase IAN) "i(0$(Bn(0@(B")))
  77. (dolist (IANG     '("j" "l" "n" "q" "x"))
  78.     (its-defrule (concat IANG "iang")    (concat (upcase IANG) "iang(0@(B"))
  79.     (its-defrule (concat IANG "iang1")    (concat (upcase IANG) "i(0!(Bng(0@(B"))
  80.     (its-defrule (concat IANG "iang2")    (concat (upcase IANG) "i(0"(Bng(0@(B"))
  81.     (its-defrule (concat IANG "iang3")    (concat (upcase IANG) "i(0#(Bng(0@(B"))
  82.     (its-defrule (concat IANG "iang4")    (concat (upcase IANG) "i(0$(Bng(0@(B")))
  83. (dolist (IAO    '("b" "d" "j" "l" "m" "n" "p" "q" "t" "x")) ;IE
  84.     (its-defrule (concat IAO "iao")    (concat (upcase IAO) "iao(0@(B"))
  85.     (its-defrule (concat IAO "iao1")    (concat (upcase IAO) "i(0!(Bo(0@(B"))
  86.     (its-defrule (concat IAO "iao2")    (concat (upcase IAO) "i(0"(Bo(0@(B"))
  87.     (its-defrule (concat IAO "iao3")    (concat (upcase IAO) "i(0#(Bo(0@(B"))
  88.     (its-defrule (concat IAO "iao4")    (concat (upcase IAO) "i(0$(Bo(0@(B"))
  89.     (its-defrule (concat IAO "ie")    (concat (upcase IAO) "ie(0@(B"))
  90.     (its-defrule (concat IAO "ie1")    (concat (upcase IAO) "i(0%@(B"))
  91.     (its-defrule (concat IAO "ie2")    (concat (upcase IAO) "i(0&@(B"))
  92.     (its-defrule (concat IAO "ie3")    (concat (upcase IAO) "i(0'@(B"))
  93.     (its-defrule (concat IAO "ie4")    (concat (upcase IAO) "i(0(@(B")))
  94. (dolist (IN    '("b" "j" "l" "m" "n" "p" "q" "x" "y"))
  95.     (its-defrule (concat IN "in")    (concat (upcase IN) "in(0@(B"))
  96.     (its-defrule (concat IN "in1")    (concat (upcase IN) "(0)(Bn(0@(B"))
  97.     (its-defrule (concat IN "in2")    (concat (upcase IN) "(0*(Bn(0@(B"))
  98.     (its-defrule (concat IN "in3")    (concat (upcase IN) "(0+(Bn(0@(B"))
  99.     (its-defrule (concat IN "in4")    (concat (upcase IN) "(0,(Bn(0@(B")))
  100. (dolist (ING    '("b" "d" "j" "l" "m" "n" "p" "q" "t" "x" "y"))
  101.     (its-defrule (concat ING "ing")    (concat (upcase ING) "ing(0@(B"))
  102.     (its-defrule (concat ING "ing1")    (concat (upcase ING) "(0)(Bng(0@(B"))
  103.     (its-defrule (concat ING "ing2")    (concat (upcase ING) "(0*(Bng(0@(B"))
  104.     (its-defrule (concat ING "ing3")    (concat (upcase ING) "(0+(Bng(0@(B"))
  105.     (its-defrule (concat ING "ing4")    (concat (upcase ING) "(0,(Bng(0@(B")))
  106. (dolist (IONG    '("j" "q" "x"))
  107.     (its-defrule (concat IONG "iong")    (concat (upcase IONG) "iong(0@(B"))
  108.     (its-defrule (concat IONG "iong1")    (concat (upcase IONG) "i(0-(Bng(0@(B"))
  109.     (its-defrule (concat IONG "iong2")    (concat (upcase IONG) "i(0.(Bng(0@(B"))
  110.     (its-defrule (concat IONG "iong3")    (concat (upcase IONG) "i(0/(Bng(0@(B"))
  111.     (its-defrule (concat IONG "iong4")    (concat (upcase IONG) "i(00(Bng(0@(B")))
  112. (dolist (IU    '("d" "j" "l" "m" "n" "q" "x"))
  113.     (its-defrule (concat IU "iu")    (concat (upcase IU) "iu(0@(B"))
  114.     (its-defrule (concat IU "iu1")    (concat (upcase IU) "i(01@(B"))
  115.     (its-defrule (concat IU "iu2")    (concat (upcase IU) "i(02@(B"))
  116.     (its-defrule (concat IU "iu3")    (concat (upcase IU) "i(03@(B"))
  117.     (its-defrule (concat IU "iu4")    (concat (upcase IU) "i(04@(B")))
  118. (dolist (O    '("b" "f" "l" "m" "p" "w" "y"))
  119.     (its-defrule (concat O "o")        (concat (upcase O) "o(0@(B"))
  120.     (its-defrule (concat O "o1")    (concat (upcase O) "(0-@(B"))
  121.     (its-defrule (concat O "o2")    (concat (upcase O) "(0.@(B"))
  122.     (its-defrule (concat O "o3")    (concat (upcase O) "(0/@(B"))
  123.     (its-defrule (concat O "o4")    (concat (upcase O) "(00@(B")))
  124. (dolist (ONG    '("c" "d" "g" "h" "k" "l" "n" "r" "s" "t" "y" "z"))
  125.     (its-defrule (concat ONG "ong")    (concat (upcase ONG) "ong(0@(B"))
  126.     (its-defrule (concat ONG "ong1")    (concat (upcase ONG) "(0-(Bng(0@(B"))
  127.     (its-defrule (concat ONG "ong2")    (concat (upcase ONG) "(0.(Bng(0@(B"))
  128.     (its-defrule (concat ONG "ong3")    (concat (upcase ONG) "(0/(Bng(0@(B"))
  129.     (its-defrule (concat ONG "ong4")    (concat (upcase ONG) "(00(Bng(0@(B")))
  130. (dolist (OU    '("c" "d" "f" "g" "h" "k" "l" "m" "n" "p" "r" "s" "t" "y" "z"))
  131.     (its-defrule (concat OU "ou")    (concat (upcase OU) "ou(0@(B"))
  132.     (its-defrule (concat OU "ou1")    (concat (upcase OU) "(0-(Bu(0@(B"))
  133.     (its-defrule (concat OU "ou2")    (concat (upcase OU) "(0.(Bu(0@(B"))
  134.     (its-defrule (concat OU "ou3")    (concat (upcase OU) "(0/(Bu(0@(B"))
  135.     (its-defrule (concat OU "ou4")    (concat (upcase OU) "(00(Bu(0@(B")))
  136. (dolist (U    '("b" "c" "d" "f" "g" "h" "j" "k" "l" "m" "n" "p" "q" "r" "s" "t" "w" "x" "y" "z"))
  137.     (its-defrule (concat U "0")        (concat (upcase U) "0(0@(B")) ; ShengMu only, no YunMu.
  138.     (its-defrule (concat U "1")        (concat (upcase U) "1(0@(B"))
  139.     (its-defrule (concat U "2")        (concat (upcase U) "2(0@(B"))
  140.     (its-defrule (concat U "3")        (concat (upcase U) "3(0@(B"))
  141.     (its-defrule (concat U "4")        (concat (upcase U) "4(0@(B"))
  142.     (its-defrule (concat U "u")        (concat (upcase U) "u(0@(B"))
  143.     (its-defrule (concat U "u1")    (concat (upcase U) "(01@(B"))
  144.     (its-defrule (concat U "u2")    (concat (upcase U) "(02@(B"))
  145.     (its-defrule (concat U "u3")    (concat (upcase U) "(03@(B"))
  146.     (its-defrule (concat U "u4")    (concat (upcase U) "(04@(B")))
  147. (dolist (V    '("l" "n"))
  148.     (its-defrule (concat V "v")        (concat (upcase V) "(09@(B"))
  149.     (its-defrule (concat V "v1")    (concat (upcase V) "(05@(B"))
  150.     (its-defrule (concat V "v2")    (concat (upcase V) "(06@(B"))
  151.     (its-defrule (concat V "v3")    (concat (upcase V) "(07@(B"))
  152.     (its-defrule (concat V "v4")    (concat (upcase V) "(08@(B")))
  153. (dolist (UA    '("g" "h" "k" "r")) ;chua;
  154.     (its-defrule (concat UA "ua")    (concat (upcase UA) "ua(0@(B"))
  155.     (its-defrule (concat UA "ua1")    (concat (upcase UA) "u(0!@(B"))
  156.     (its-defrule (concat UA "ua2")    (concat (upcase UA) "u(0"@(B"))
  157.     (its-defrule (concat UA "ua3")    (concat (upcase UA) "u(0#@(B"))
  158.     (its-defrule (concat UA "ua4")    (concat (upcase UA) "u(0$@(B")))
  159. (dolist (UAI    '("g" "h" "k"))
  160.     (its-defrule (concat UAI "uai")    (concat (upcase UAI) "uai(0@(B"))
  161.     (its-defrule (concat UAI "uai1")    (concat (upcase UAI) "u(0!(Bi(0@(B"))
  162.     (its-defrule (concat UAI "uai2")    (concat (upcase UAI) "u(0"(Bi(0@(B"))
  163.     (its-defrule (concat UAI "uai3")    (concat (upcase UAI) "u(0#(Bi(0@(B"))
  164.     (its-defrule (concat UAI "uai4")    (concat (upcase UAI) "u(0$(Bi(0@(B")))
  165. (dolist (UAN    '("c" "d" "g" "h" "j" "k" "l" "n" "q" "r" "s" "t" "x" "y" "z"))
  166.     (its-defrule (concat UAN "uan")    (concat (upcase UAN) "uan(0@(B"))
  167.     (its-defrule (concat UAN "uan1")    (concat (upcase UAN) "u(0!(Bn(0@(B"))
  168.     (its-defrule (concat UAN "uan2")    (concat (upcase UAN) "u(0"(Bn(0@(B"))
  169.     (its-defrule (concat UAN "uan3")    (concat (upcase UAN) "u(0#(Bn(0@(B"))
  170.     (its-defrule (concat UAN "uan4")    (concat (upcase UAN) "u(0$(Bn(0@(B")))
  171. (dolist (UANG    '("g" "h" "k"))
  172.     (its-defrule (concat UANG "uang")    (concat (upcase UANG) "uang(0@(B"))
  173.     (its-defrule (concat UANG "uang1")    (concat (upcase UANG) "u(0!(Bng(0@(B"))
  174.     (its-defrule (concat UANG "uang2")    (concat (upcase UANG) "u(0"(Bng(0@(B"))
  175.     (its-defrule (concat UANG "uang3")    (concat (upcase UANG) "u(0#(Bng(0@(B"))
  176.     (its-defrule (concat UANG "uang4")    (concat (upcase UANG) "u(0$(Bng(0@(B")))
  177. (dolist (UE    '("j" "q" "x" "y"))
  178.     (its-defrule (concat UE "ue")    (concat (upcase UE) "ue(0@(B"))
  179.     (its-defrule (concat UE "ue1")    (concat (upcase UE) "u(0%@(B"))
  180.     (its-defrule (concat UE "ue2")    (concat (upcase UE) "u(0&@(B"))
  181.     (its-defrule (concat UE "ue3")    (concat (upcase UE) "u(0'@(B"))
  182.     (its-defrule (concat UE "ue4")    (concat (upcase UE) "u(0(@(B")))
  183. (dolist (VE    '("l" "n"))
  184.     (its-defrule (concat VE "ve")    (concat (upcase VE) "(09(Be(0@(B"))
  185.     (its-defrule (concat VE "ve1")    (concat (upcase VE) "(09%@(B"))
  186.     (its-defrule (concat VE "ve2")    (concat (upcase VE) "(09&@(B"))
  187.     (its-defrule (concat VE "ve3")    (concat (upcase VE) "(09'@(B"))
  188.     (its-defrule (concat VE "ve4")    (concat (upcase VE) "(09(@(B")))
  189. (dolist (UI    '("c" "d" "g" "h" "k" "r" "s" "t" "z"))
  190.     (its-defrule (concat UI "ui")    (concat (upcase UI) "ui(0@(B"))
  191.     (its-defrule (concat UI "ui1")    (concat (upcase UI) "u(0)@(B"))
  192.     (its-defrule (concat UI "ui2")    (concat (upcase UI) "u(0*@(B"))
  193.     (its-defrule (concat UI "ui3")    (concat (upcase UI) "u(0+@(B"))
  194.     (its-defrule (concat UI "ui4")    (concat (upcase UI) "u(0,@(B")))
  195. (dolist (UN    '("c" "d" "g" "h" "j" "k" "l" "q" "r" "s" "t" "x" "y" "z"))
  196.     (its-defrule (concat UN "un")    (concat (upcase UN) "un(0@(B"))
  197.     (its-defrule (concat UN "un1")    (concat (upcase UN) "(01(Bn(0@(B"))
  198.     (its-defrule (concat UN "un2")    (concat (upcase UN) "(02(Bn(0@(B"))
  199.     (its-defrule (concat UN "un3")    (concat (upcase UN) "(03(Bn(0@(B"))
  200.     (its-defrule (concat UN "un4")    (concat (upcase UN) "(04(Bn(0@(B")))
  201. (dolist (UO    '("c" "d" "g" "h" "k" "l" "n" "r" "s" "t" "z"))
  202.     (its-defrule (concat UO "uo")    (concat (upcase UO) "uo(0@(B"))
  203.     (its-defrule (concat UO "uo1")    (concat (upcase UO) "u(0-@(B"))
  204.     (its-defrule (concat UO "uo2")    (concat (upcase UO) "u(0.@(B"))
  205.     (its-defrule (concat UO "uo3")    (concat (upcase UO) "u(0/@(B"))
  206.     (its-defrule (concat UO "uo4")    (concat (upcase UO) "u(00@(B")))
  207. (dolist (CSZ    '("c" "s" "z"))
  208. ;    (its-defrule (concat CSZ "h0")    (concat (upcase CSZ) "h0(0@(B"))
  209. ;    (its-defrule (concat CSZ "h1")    (concat (upcase CSZ) "h1(0@(B"))
  210. ;    (its-defrule (concat CSZ "h2")    (concat (upcase CSZ) "h2(0@(B"))
  211. ;    (its-defrule (concat CSZ "h3")    (concat (upcase CSZ) "h3(0@(B"))
  212. ;    (its-defrule (concat CSZ "h4")    (concat (upcase CSZ) "h4(0@(B"))
  213.     (its-defrule (concat CSZ "ha")    (concat (upcase CSZ) "ha(0@(B"))
  214.     (its-defrule (concat CSZ "ha1")    (concat (upcase CSZ) "h(0!@(B"))
  215.     (its-defrule (concat CSZ "ha2")    (concat (upcase CSZ) "h(0"@(B"))
  216.     (its-defrule (concat CSZ "ha3")    (concat (upcase CSZ) "h(0#@(B"))
  217.     (its-defrule (concat CSZ "ha4")    (concat (upcase CSZ) "h(0$@(B"))
  218.     (its-defrule (concat CSZ "hai")    (concat (upcase CSZ) "hai(0@(B"))
  219.     (its-defrule (concat CSZ "hai1")    (concat (upcase CSZ) "h(0!(Bi(0@(B"))
  220.     (its-defrule (concat CSZ "hai2")    (concat (upcase CSZ) "h(0"(Bi(0@(B"))
  221.     (its-defrule (concat CSZ "hai3")    (concat (upcase CSZ) "h(0#(Bi(0@(B"))
  222.     (its-defrule (concat CSZ "hai4")    (concat (upcase CSZ) "h(0$(Bi(0@(B"))
  223.     (its-defrule (concat CSZ "han")    (concat (upcase CSZ) "han(0@(B"))
  224.     (its-defrule (concat CSZ "han1")    (concat (upcase CSZ) "h(0!(Bn(0@(B"))
  225.     (its-defrule (concat CSZ "han2")    (concat (upcase CSZ) "h(0"(Bn(0@(B"))
  226.     (its-defrule (concat CSZ "han3")    (concat (upcase CSZ) "h(0#(Bn(0@(B"))
  227.     (its-defrule (concat CSZ "han4")    (concat (upcase CSZ) "h(0$(Bn(0@(B"))
  228.     (its-defrule (concat CSZ "hang")    (concat (upcase CSZ) "hang(0@(B"))
  229.     (its-defrule (concat CSZ "hang1")    (concat (upcase CSZ) "h(0!(Bng(0@(B"))
  230.     (its-defrule (concat CSZ "hang2")    (concat (upcase CSZ) "h(0"(Bng(0@(B"))
  231.     (its-defrule (concat CSZ "hang3")    (concat (upcase CSZ) "h(0#(Bng(0@(B"))
  232.     (its-defrule (concat CSZ "hang4")    (concat (upcase CSZ) "h(0$(Bng(0@(B"))
  233.     (its-defrule (concat CSZ "hao")    (concat (upcase CSZ) "hao(0@(B"))
  234.     (its-defrule (concat CSZ "hao1")    (concat (upcase CSZ) "h(0!(Bo(0@(B"))
  235.     (its-defrule (concat CSZ "hao2")    (concat (upcase CSZ) "h(0"(Bo(0@(B"))
  236.     (its-defrule (concat CSZ "hao3")    (concat (upcase CSZ) "h(0#(Bo(0@(B"))
  237.     (its-defrule (concat CSZ "hao4")    (concat (upcase CSZ) "h(0$(Bo(0@(B"))
  238.     (its-defrule (concat CSZ "he")    (concat (upcase CSZ) "he(0@(B"))
  239.     (its-defrule (concat CSZ "he1")    (concat (upcase CSZ) "h(0%@(B"))
  240.     (its-defrule (concat CSZ "he2")    (concat (upcase CSZ) "h(0&@(B"))
  241.     (its-defrule (concat CSZ "he3")    (concat (upcase CSZ) "h(0'@(B"))
  242.     (its-defrule (concat CSZ "he4")    (concat (upcase CSZ) "h(0(@(B"))
  243.     (its-defrule (concat CSZ "hen")    (concat (upcase CSZ) "hen(0@(B"))
  244.     (its-defrule (concat CSZ "hen1")    (concat (upcase CSZ) "h(0%(Bn(0@(B"))
  245.     (its-defrule (concat CSZ "hen2")    (concat (upcase CSZ) "h(0&(Bn(0@(B"))
  246.     (its-defrule (concat CSZ "hen3")    (concat (upcase CSZ) "h(0'(Bn(0@(B"))
  247.     (its-defrule (concat CSZ "hen4")    (concat (upcase CSZ) "h(0((Bn(0@(B"))
  248.     (its-defrule (concat CSZ "heng")    (concat (upcase CSZ) "heng(0@(B"))
  249.     (its-defrule (concat CSZ "heng1")    (concat (upcase CSZ) "h(0%(Bng(0@(B"))
  250.     (its-defrule (concat CSZ "heng2")    (concat (upcase CSZ) "h(0&(Bng(0@(B"))
  251.     (its-defrule (concat CSZ "heng3")    (concat (upcase CSZ) "h(0'(Bng(0@(B"))
  252.     (its-defrule (concat CSZ "heng4")    (concat (upcase CSZ) "h(0((Bng(0@(B"))
  253.     (its-defrule (concat CSZ "hi")    (concat (upcase CSZ) "hi(0@(B"))
  254.     (its-defrule (concat CSZ "hi1")    (concat (upcase CSZ) "h(0)@(B"))
  255.     (its-defrule (concat CSZ "hi2")    (concat (upcase CSZ) "h(0*@(B"))
  256.     (its-defrule (concat CSZ "hi3")    (concat (upcase CSZ) "h(0+@(B"))
  257.     (its-defrule (concat CSZ "hi4")    (concat (upcase CSZ) "h(0,@(B"))
  258.     (its-defrule (concat CSZ "hou")    (concat (upcase CSZ) "hou(0@(B"))
  259.     (its-defrule (concat CSZ "hou1")    (concat (upcase CSZ) "h(0-(Bu(0@(B"))
  260.     (its-defrule (concat CSZ "hou2")    (concat (upcase CSZ) "h(0.(Bu(0@(B"))
  261.     (its-defrule (concat CSZ "hou3")    (concat (upcase CSZ) "h(0/(Bu(0@(B"))
  262.     (its-defrule (concat CSZ "hou4")    (concat (upcase CSZ) "h(00(Bu(0@(B"))
  263.     (its-defrule (concat CSZ "hu")    (concat (upcase CSZ) "hu(0@(B"))
  264.     (its-defrule (concat CSZ "hu1")    (concat (upcase CSZ) "h(01@(B"))
  265.     (its-defrule (concat CSZ "hu2")    (concat (upcase CSZ) "h(02@(B"))
  266.     (its-defrule (concat CSZ "hu3")    (concat (upcase CSZ) "h(03@(B"))
  267.     (its-defrule (concat CSZ "hu4")    (concat (upcase CSZ) "h(04@(B"))
  268.     (its-defrule (concat CSZ "huai")    (concat (upcase CSZ) "huai(0@(B"))
  269.     (its-defrule (concat CSZ "huai1")    (concat (upcase CSZ) "hu(0!(Bi(0@(B"))
  270.     (its-defrule (concat CSZ "huai2")    (concat (upcase CSZ) "hu(0"(Bi(0@(B"))
  271.     (its-defrule (concat CSZ "huai3")    (concat (upcase CSZ) "hu(0#(Bi(0@(B"))
  272.     (its-defrule (concat CSZ "huai4")    (concat (upcase CSZ) "hu(0$(Bi(0@(B"))
  273.     (its-defrule (concat CSZ "huan")    (concat (upcase CSZ) "huan(0@(B"))
  274.     (its-defrule (concat CSZ "huan1")    (concat (upcase CSZ) "hu(0!(Bn(0@(B"))
  275.     (its-defrule (concat CSZ "huan2")    (concat (upcase CSZ) "hu(0"(Bn(0@(B"))
  276.     (its-defrule (concat CSZ "huan3")    (concat (upcase CSZ) "hu(0#(Bn(0@(B"))
  277.     (its-defrule (concat CSZ "huan4")    (concat (upcase CSZ) "hu(0$(Bn(0@(B"))
  278.     (its-defrule (concat CSZ "huang")    (concat (upcase CSZ) "huang(0@(B"))
  279.     (its-defrule (concat CSZ "huang1")    (concat (upcase CSZ) "hu(0!(Bng(0@(B"))
  280.     (its-defrule (concat CSZ "huang2")    (concat (upcase CSZ) "hu(0"(Bng(0@(B"))
  281.     (its-defrule (concat CSZ "huang3")    (concat (upcase CSZ) "hu(0#(Bng(0@(B"))
  282.     (its-defrule (concat CSZ "huang4")    (concat (upcase CSZ) "hu(0$(Bng(0@(B"))
  283.     (its-defrule (concat CSZ "hui")    (concat (upcase CSZ) "hui(0@(B"))
  284.     (its-defrule (concat CSZ "hui1")    (concat (upcase CSZ) "hu(0)@(B"))
  285.     (its-defrule (concat CSZ "hui2")    (concat (upcase CSZ) "hu(0*@(B"))
  286.     (its-defrule (concat CSZ "hui3")    (concat (upcase CSZ) "hu(0+@(B"))
  287.     (its-defrule (concat CSZ "hui4")    (concat (upcase CSZ) "hu(0,@(B"))
  288.     (its-defrule (concat CSZ "hun")    (concat (upcase CSZ) "hun(0@(B"))
  289.     (its-defrule (concat CSZ "hun1")    (concat (upcase CSZ) "h(01(Bn(0@(B"))
  290.     (its-defrule (concat CSZ "hun2")    (concat (upcase CSZ) "h(02(Bn(0@(B"))
  291.     (its-defrule (concat CSZ "hun3")    (concat (upcase CSZ) "h(03(Bn(0@(B"))
  292.     (its-defrule (concat CSZ "hun4")    (concat (upcase CSZ) "h(04(Bn(0@(B"))
  293.     (its-defrule (concat CSZ "huo")    (concat (upcase CSZ) "huo(0@(B"))
  294.     (its-defrule (concat CSZ "huo1")    (concat (upcase CSZ) "hu(0-@(B"))
  295.     (its-defrule (concat CSZ "huo2")    (concat (upcase CSZ) "hu(0.@(B"))
  296.     (its-defrule (concat CSZ "huo3")    (concat (upcase CSZ) "hu(0/@(B"))
  297.     (its-defrule (concat CSZ "huo4")    (concat (upcase CSZ) "hu(00@(B")))
  298.  
  299. (its-defrule    "a"        "a(0@(B")
  300. (its-defrule    "a1"        "(0!@(B")
  301. (its-defrule    "a2"        "(0"@(B")
  302. (its-defrule    "a3"        "(0#@(B")
  303. (its-defrule    "a4"        "(0$@(B")
  304. (its-defrule    "ai"        "ai(0@(B")
  305. (its-defrule    "ai1"        "(0!(Bi(0@(B")
  306. (its-defrule    "ai2"        "(0"(Bi(0@(B")
  307. (its-defrule    "ai3"        "(0#(Bi(0@(B")
  308. (its-defrule    "ai4"        "(0$(Bi(0@(B")
  309. (its-defrule    "an"        "an(0@(B")
  310. (its-defrule    "an1"        "(0!(Bn(0@(B")
  311. (its-defrule    "an2"        "(0"(Bn(0@(B")
  312. (its-defrule    "an3"        "(0#(Bn(0@(B")
  313. (its-defrule    "an4"        "(0$(Bn(0@(B")
  314. (its-defrule    "ang"        "ang(0@(B")
  315. (its-defrule    "ang1"        "(0!(Bng(0@(B")
  316. (its-defrule    "ang2"        "(0"(Bng(0@(B")
  317. (its-defrule    "ang3"        "(0#(Bng(0@(B")
  318. (its-defrule    "ang4"        "(0$(Bng(0@(B")
  319. (its-defrule    "ao"        "ao(0@(B")
  320. (its-defrule    "ao1"        "(0!(Bo(0@(B")
  321. (its-defrule    "ao2"        "(0"(Bo(0@(B")
  322. (its-defrule    "ao3"        "(0#(Bo(0@(B")
  323. (its-defrule    "ao4"        "(0$(Bo(0@(B")
  324. (its-defrule    "chong"        "Chong(0@(B")
  325. (its-defrule    "chong1"    "Ch(0-(Bng(0@(B")
  326. (its-defrule    "chong2"    "Ch(0.(Bng(0@(B")
  327. (its-defrule    "chong3"    "Ch(0/(Bng(0@(B")
  328. (its-defrule    "chong4"    "Ch(00(Bng(0@(B")
  329. (its-defrule    "e"        "e(0@(B")
  330. (its-defrule    "e1"        "(0%@(B")
  331. (its-defrule    "e2"        "(0&@(B")
  332. (its-defrule    "e3"        "(0'@(B")
  333. (its-defrule    "e4"        "(0(@(B")
  334. (its-defrule    "ei"        "ei(0@(B")
  335. (its-defrule    "ei1"        "(0%(Bi(0@(B")
  336. (its-defrule    "ei2"        "(0&(Bi(0@(B")
  337. (its-defrule    "ei3"        "(0'(Bi(0@(B")
  338. (its-defrule    "ei4"        "(0((Bi(0@(B")
  339. (its-defrule    "en"        "en(0@(B")
  340. (its-defrule    "en1"        "(0%(Bn(0@(B")
  341. (its-defrule    "en2"        "(0&(Bn(0@(B")
  342. (its-defrule    "en3"        "(0'(Bn(0@(B")
  343. (its-defrule    "en4"        "(0((Bn(0@(B")
  344. ;(its-defrule    "eng"        "eng(0@(B")
  345. ;(its-defrule    "eng1"        "(0%(Bng(0@(B")
  346. ;(its-defrule    "eng2"        "(0&(Bng(0@(B")
  347. ;(its-defrule    "eng3"        "(0'(Bng(0@(B")
  348. ;(its-defrule    "eng4"        "(0((Bng(0@(B")
  349. (its-defrule    "er"        "er(0@(B")
  350. (its-defrule    "er1"        "(0%(Br(0@(B")
  351. (its-defrule    "er2"        "(0&(Br(0@(B")
  352. (its-defrule    "er3"        "(0'(Br(0@(B")
  353. (its-defrule    "er4"        "(0((Br(0@(B")
  354. (its-defrule    "o"        "o(0@(B")
  355. (its-defrule    "o1"        "(0-@(B")
  356. (its-defrule    "o2"        "(0.@(B")
  357. (its-defrule    "o3"        "(0/@(B")
  358. (its-defrule    "o4"        "(00@(B")
  359. (its-defrule    "ou"        "ou(0@(B")
  360. (its-defrule    "ou1"        "(0-(Bu(0@(B")
  361. (its-defrule    "ou2"        "(0.(Bu(0@(B")
  362. (its-defrule    "ou3"        "(0/(Bu(0@(B")
  363. (its-defrule    "ou4"        "(00(Bu(0@(B")
  364. (its-defrule    "shei"        "Shei(0@(B")
  365. (its-defrule    "shei1"        "Sh(0%(Bi(0@(B")
  366. (its-defrule    "shei2"        "Sh(0&(Bi(0@(B")
  367. (its-defrule    "shei3"        "Sh(0'(Bi(0@(B")
  368. (its-defrule    "shei4"        "Sh(0((Bi(0@(B")
  369. (its-defrule    "shua"        "Shua(0@(B")
  370. (its-defrule    "shua1"        "Shu(0!@(B")
  371. (its-defrule    "shua2"        "Shu(0"@(B")
  372. (its-defrule    "shua3"        "Shu(0#@(B")
  373. (its-defrule    "shua4"        "Shu(0$@(B")
  374. (its-defrule    "zhei"        "Zhei(0@(B")
  375. (its-defrule    "zhei1"        "Zh(0%(Bi(0@(B")
  376. (its-defrule    "zhei2"        "Zh(0&(Bi(0@(B")
  377. (its-defrule    "zhei3"        "Zh(0'(Bi(0@(B")
  378. (its-defrule    "zhei4"        "Zh(0((Bi(0@(B")
  379. (its-defrule    "zhong"        "Zhong(0@(B")
  380. (its-defrule    "zhong1"    "Zh(0-(Bng(0@(B")
  381. (its-defrule    "zhong2"    "Zh(0.(Bng(0@(B")
  382. (its-defrule    "zhong3"    "Zh(0/(Bng(0@(B")
  383. (its-defrule    "zhong4"    "Zh(00(Bng(0@(B")
  384. (its-defrule    "zhua"        "Zhua(0@(B")
  385. (its-defrule    "zhua1"        "Zhu(0!@(B")
  386. (its-defrule    "zhua2"        "Zhu(0"@(B")
  387. (its-defrule    "zhua3"        "Zhu(0#@(B")
  388. (its-defrule    "zhua4"        "Zhu(0$@(B")
  389. ;;;;            -----------Special PinYin-------------
  390. ;(its-defrule    "hm"        "Hm(0@(B")
  391. (its-defrule    "hng"        "Hng(0@(B")
  392. (its-defrule    "ng"        "ng(0@(B")
  393. (its-defrule    "m"        "m(0@(B")
  394. (its-defrule    "n"        "n(0@(B")
  395.